f = 
        261.6*({2^({0, 2, 4, 5, 7, 9, 11, 12, 14}/12), {1, 3^2/2^3, 
                3^4/2^6, 4/3, 3/2, 3^3/2^4, 3^5/2^7, 2, 
                3^2/2^2}});

ch = {{1, 3, 5, 8}, {1, 4, 6, 8}, {2, 5, 7, 9}, {8, 3, 5, 
            8}};

Do[Do[
        Play[Cos[2*Pi*f[[i, ch[[j, 1]]]]*t] + 
            Cos[2*Pi*f[[i, ch[[j, 2]]]]*t] + 
            Cos[2*Pi*f[[i, ch[[j, 3]]]]*t] + 
            Cos[2*Pi*f[[i, ch[[j, 4]]]]*t], {t, 0, 3}], {j, 1, 
          4}], {i, 1, 2}]