You can try this:
OnlineMarketingContext.CurrentContact.Activities.Where("ActivityCreated >= DATEADD(dd, -1, GETDATE())").OrderBy("ActivityCreated DESC").TopN(10)
But beware, this is not optimized and could take quite a while to calculate. I'm also limiting it to 10 rows just in case.