IMHO the fastest way is to find a "easy" enemy, spam "Seduce" a few times and then defeat them, obviously not fucking them after
that said, the main issue I have is the lack of clues for those events requiring high lust.
also, a very minor personal issue I have with the High Lust Companion Urka event: it should have a Virginity\Purity\Dignity\Willpower check.
Then again, a lot of other events should have more checks, IMHO. And, ideally, but I know it would take too much time, different outcomes depending on the checks.