value = 0;
While[
 value++;
 Print[value];
 Mod[value,6]!=0
]