R - Detener un while loop

Este código me genera un loop infinito, cómo podría pararlo con break cuando uno de los números sea mayor que 1?

while (TRUE) {
# generate a random number from a normal distribution with mean 0 and standard deviation 1
random_num <- rnorm(7, 0, 1)

# print the random number
print(random_num)
}

Gracias