Select[Range[100], Mod[#, 3] == 0 Or Mod[#, 5] == 0 Or Mod[#, 8] == 0 &]