rutina para genear pines

Hola, alguien tiene algun ejemplo de una rutina que genere pines
autometicamente verificando contra una tabla si el pin ya existe o no?
yo he creado esta pero se tarda un mundo y consume casi el 100% del cpu del
servidor,

existe int;
posibles text := '1234567890';
nuevo_pin text;
FOR x IN 1..10 LOOP -- generar 10 pines
WHILE 1 LOOP
nuevo_pin := '';
FOR y IN 1..8 LOOP -- 8 es el larga del pin
offset := ceil(random()*10);
nuevo_pin := nuevo_pin || substr(posibles,
offset,1);
END LOOP;

SELECT INTO existe count(*)
FROM pines
WHERE pin = nuevo_pin;

IF existe = 0 THEN
INSERT INTO pines (pin)
VALUES (nuevo_pin);
EXIT;
END IF;
END LOOP;
END LOOP;

algun comentario de como mejorarla?