Mathematica do...while en Mathematica

[Nothing to kill or die for]

Hola (:
Acabo de empezar a usar Mathematica y voy un poco perdida... Alguien sabe como implementar un do..while típico del lenguaje C en lenguaje Mathematica? Concretamente me gustaría traducir el siguiente do...while :

i=1;
NP=4;
do a=rnd_uni()*NP; while(a==i);

donde i y NP son variables que me gustaría ir cambiando.
Muchas gracias por adelantado!!

- - - Actualizado - - -

Lo he resuelto jeje El do...while seria While[(procedure;test)] y el do...while concreto que necesitava se traduce como

i:=1;
NP:=4;
While[(a = Random[Integer, {1, NP}]; a == i)];

Muchas gracias igualmente!!