i = 0
' first iteration - before the While
i = i + 1
TextWindow.WriteLine(i)
While Math.Remainder(i, 6) <> 0
  i = i + 1
  TextWindow.WriteLine(i)
EndWhile