Ombygge til løkke

Hej

Er der ikke en, som kan ombygge dette til en sej, lille, effektiv løkke i stedet for denne skod-kode?

    do while i < 2
        randomize
        ranValue = int(100 * rnd) + 1

        if ranValue > 60 then
            strTrin = 9
        else
            if ranValue > 45 then
                strTrin = 8
            else
                if ranValue > 35 then
                    strTrin = 7
                else
                    if ranValue > 30 then
                        strTrin = 6
                    else
                        if ranValue > 25 then
                            strTrin = 5
                        else
                            if ranValue > 20 then
                                strTrin = 4
                            else
                                if ranValue > 15 then
                                    strTrin = 3
                                else
                                    if ranValue > 10 then
                                        strTrin = 2
                                    else
                                        if ranValue > 5 then
                                            strTrin = 1
                                        end if
                                    end if
                                end if
                            end if
                        end if
                    end if
                end if
            end if
        end if
          loop