I think the reason porn and free sex is promoted is because they want to prevent the forming of strong family units.

When people are focused on raising children, they spend less time at work and are more likely to demonstrate low time preference which is antithetical to our consumer culture.