Das geht nicht, weil Bascom nur einen Befehl pro Zeile macht. In diesem Fall sind es sozusagen zwei Befehle: einmal die Division Durchmesser-1 und einmal das While.
Damit das Funktioniert müßtest du den Wert von Durchmesser-1 vor der Schleife bzw. in der Schleife in eine Extra-Variable berechnen und die While-Bedingung das auf diese Extra-Variable beziehen.

Gruß MeckPommER